Plot[m=(a-100)/50, {a, 0, 2600}]